home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 426-450 / disk_445 / turbotext / rexx / countwords.ttx < prev    next >
Text File  |  1992-05-06  |  405b  |  27 lines
  1.  
  2. /** $VER: CountWords.ttx Demo 1.0 (26.12.90)
  3.  **
  4.  ** Count the number of words in the document
  5.  **
  6.  ** Written by Martin Taillefer
  7.  **/
  8.  
  9.  
  10. OPTIONS RESULTS
  11.  
  12.  
  13.   SetDisplayLock ON
  14.   SetBookmark 0
  15.   SetStatusBar TEMPORARY "Counting..."
  16.  
  17.   count = 0
  18.   MoveSOF
  19.   DO UNTIL RC ~= 0
  20.     MoveNextWord
  21.     count = count + 1
  22.   END
  23.  
  24.   SetStatusBar "Counted " || count || " words"
  25.   MoveBookmark 0
  26.   SetDisplayLock OFF
  27.